COMMON /I/I(80,4) /NM/NM,NMX  /FIL/KF(4) /NMM/NMM(4)
       DATA KF/1,20,21,22/,LII/'I'/,LQT/'"'/,IBLA/' '/
1      FORMAT(' OPEN HOW MANY FILES TO READ?  '$)
2      FORMAT(I2)
3      FORMAT(' FIRST FILE NAME TO READ -- '$)
4      FORMAT(' OUTPUT FILE NAME  '$)
44     FORMAT(' INPUT FILE NAME  '$)
5      FORMAT(A5)
10     FORMAT(80A1)
       J=0
       JJ=1
CC     WRITE(5,1)
45     J=J+1
	WRITE(5,44)
CC     READ(5,2)NF
       READ(5,5)NMM(J)
	IF(NMM(J).NE.IBLA)GO TO 45
	NF=J-1
CC     WRITE(5,3)
CC     READ(5,5)NM
       WRITE(5,4)
       READ(5,5)NMX
       DO 6 K=1,NF
6      CALL IFILE(KF(K),NMM(K))
CC6      NM=NM+2
       CALL OFILE(24,NMX)
11       DO 8 K=1,NF
9	CALL READER(K,LN,LEND)
	IF(LEND.LT.0)GO TO 99
       IF(I(1,K).EQ.LQT)GO TO 8
C  '"'= ALL DONE
       WRITE(24,10)(I(N,K),N=1,LN)
       GO TO 9
8      CONTINUE
       WRITE(24,10)LQT
	GO TO 11
99     END FILE 24
       END

	SUBROUTINE READER(K,LN,LEND)
       COMMON /I/I(80,4) /NM/NM,NMX  /FIL/KF(4)
	DATA IBLA/' '/
10     FORMAT(80A1)
11	FORMAT(1X80A1)
7      READ(KF(K),10,END=99)(I(N,K),N=1,80)
	LEND=0
1	LN=80
2	IF(I(LN,K).NE.IBLA)GO TO 5
	LN=LN-1
	IF(LN.GT.0)GO TO 2
5	WRITE(5,11)(I(N,K),N=1,LN)
	RETURN
99	LEND=-1
	GO TO 1
	END